if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then
LastRecordOnPage = RS.RecordCount
end if
%>
<%
%>
<% if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then%>
<table border=0>
<% end if %>
<%
Do While Not RS.EOF and NextRecordNumber <= LastRecordOnPage
' This is the detail portion for Title, Description, URL, Size, and
' Modification Date.
TmpExt = Server.HTMLEncode( RS("filename") )
FullExt = Right(TmpExt, 3)
If FullExt <> "cnt" and FullExt <> "hhc" and FullExt <> "hpj" and FullExt <> "hlp" and FullExt <> "rtf" and FullExt <> "asf" and FullExt <> "gid" and FullExt <> "fts" and FullExt <> "wmp" and FullExt <> "hhk" and FullExt <> "txt" and FullExt <> "ass" and FullExt <> "idq" and FullExt <> "ncr" and FullExt <> "ncl" and FullExt <> "url" and FullExt <> "css" and FullExt <> "prp" and FullExt <> "htx" and FullExt <> "htw" and FullExt <> "tmp" and FullExt <> "mdb" and FullExt <> "xls" and FullExt <> "chm" Then
' If there is a title, display it, otherwise display the filename.
%>
<p>
<tr class="RecordTitle">
<td><b><%=NextRecordNumber%>.</b></td>
<b class="RecordTitle"> <td><b>
<%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%>
<%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%>
<%= RS("characterization")%>
<%end if%>
<%if CiResultsSize = "on" then%>
<%end if%>
</td>
</tr>
<tr>
</tr>
<%
else
NextRecordNumber = NextRecordNumber-1
end if%>
<%
RS.MoveNext
NextRecordNumber = NextRecordNumber+1
Loop
%>
</table>
<P><BR>
<%
else ' NOT RS.EOF
if NextRecordNumber <> 1 then
Response.Write "No more documents in the query.<P>"
end if
end if ' NOT RS.EOF%>
<%
if Q.QueryIncomplete then
' If the query was not executed because it needed to enumerate to
' resolve the query instead of using the index, but AllowEnumeration
' was FALSE, let the user know %>
<P>
<I><B>The query could not be completed. Please resubmit the query.<BR> Technical details: AllowEnumeration must be set to TRUE to complete this query.</B></I><BR>
<%end if
if Q.QueryTimedOut then
' If the query took too long to execute (for example, if too much work
' was required to resolve the query), let the user know %>
<P>
<I><B>The query took too long to complete.</B></I><BR>
<%end if%>
<TABLE>
<%
' This is the "previous" button.
' This retrieves the previous page of documents for the query.
%>
<%SaveQuery = FALSE%>
<%if CurrentPage > 1 and RS.RecordCount <> -1 then %>
<INPUT TYPE="HIDDEN" NAME = "RankBase" VALUE="<%=RankBase%>">
<% NextString = "More >>"%>
<input type="submit" value="<%=NextString%>">
</form>
</td>
<%SaveQuery = TRUE%>
<%end if%>
</TABLE>
<% ' Display the page number %>
<%if RS.RecordCount = 0 then%>
No documents matched the query <%=SearchString%>.<br><br>
You might want to:
<UL><LI>Let us know about this <a href="mailto:iisdocs@microsoft.com?subject=<%=SearchString%>-search%20term%20not%20matched&body=The%20term%20'<%=SearchString%>'%20produced%20no%20matches.">(mailto:iisdocs@microsoft.com)</a> so that we can improve Search in future releases.
<LI>Check the Index for related terms.
<LI>Double-check your spelling and syntax.
<LI>Try a different Search option (Standard, Exact Phrase, Any Words, All Words, and Boolean options are available).
<LI>Try your query again later. If you've just started Indexing Service, it may take a few minutes to catalog the IIS documentation.
</UL>
<%else%>
Page <%=CurrentPage%>
<%if RS.PageCount <> -1 then
Response.Write " of " & RS.PageCount
end if %>
<%end if%>
<%
' If either of the previous or back buttons were displayed, save the query
' and the recordset in session variables.
if SaveQuery then
set Session("Query") = Q
set Session("RecordSet") = RS
else
RS.close
Set RS = Nothing
Set Q = Nothing
set Session("Query") = Nothing
set Session("RecordSet") = Nothing
end if
%>
<% end if %>
</BODY>
</HTML>
<%else%>
<%
'Strip noise words from search term
NCompare=""
NewCompare=""
SearchStringComp=SearchString+" "
for x = 1 to len(SearchStringComp)
if mid(SearchStringComp,x,1)=" " Then
ncompare2 = ","+ncompare+","
if instr(noise,ncompare2) = 0 then
NewCompare=NewCompare+" "+ncompare
End If
ncompare=""
else
ncompare=ncompare+mid(SearchString,x,1)
end if
next
x = len(NewCompare)
if left(NewCompare,1) = " " Then
NewCompare = right(NewCompare,(x-1))
end if
SearchString=NewCompare
'Strip punctuation from search term
SearchStringErr = ""
for x = 1 to len(SearchString)
testpunc= mid(SearchString,x,1)
if instr(punc2,testpunc) then
SearchStringErr= SearchStringErr
else
SearchStringErr = SearchStringErr + testpunc
end if
next
SearchString = SearchStringErr
CompSearch=SearchString
%>
<%if SearchString = "" or instr(SearchString,"*") or instr(CompSearch,")") or instr(CompSearch,"(") or right(CompSearch,3)="OR " or right(CompSearch,4)="AND " then%>
<b>Indexing Services was unable to process your query.<p></b><br>
Please rephrase the query and try again. Some common words (such as "get," "for," and "many") are not indexed. Also, do not use punctuation marks (commas, periods, and so on) in your query.
<%else%>
Indexing Service not started<p>
*<%=CompSearch%>*
<br>
In order to perform search queries on the IIS documentation, you must first start Indexing Service.<br>
<p>
To start Indexing Service,
<ol>
<li>On the computer running IIS, right-click the <b>My Computer</b> icon and click <b>Manage</b>.<p>
<li>Expand the <b>Services and Applications</b> node in the MMC.<p>
<li>Select <b>Indexing Service</b>.</p>
<li>Click the <b>Action</b> menu and then click <b>Start</b>.<p>
</ol> <p>
Note: It may take Indexing Service a few minutes to catalog the IIS documentation.<p>
In order to use Search while viewing the documentation remotely, Indexing Service must be running on the computer that is serving the documentation. If you are unable to start Indexing Service, please contact the Web site administrator.
